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INTRODUCTION 


PRTSCR is a 324 byte Machine-Code utility for the TS1000/ZX81 with at 
least 4K RAM, a MEMOPAK CENTRONICS I/F, and any standard printer with 
graphics capabilities. 

PRTSCR lets you copy ZX characters to your Centronics printer, just as 
they appear on the screen! 

As supplied, the program is configured to wor К with EPSON 
MX80/RX80/F X80, Mannesman Tally, Star Gemini 10X, and any other printer 
which uses the EPSON graphics escape codes. (This is easy to modify) 

The program also contains a 19 byte INVERT routine, which can be helpful 
when creating printer graphics on your screen. The INVERT routine is 
invoked by RAND USR' 16840. 


TO LOAD the program, just ENTER LOAD "" or LOAD "PRTSCR" 
PRTSC is autoRUN, so have your printer on-line. 
The program, when loaded, will LIST itself, and print the ZX character 
set. (You can BREAK at any time, including during printout) 
Then, it will call PRTSC, then INVERT, then PRTSC again. This will quickly 
show you the capabilities of the program! 

You can delete all lines from line 10 on, and add your own program after 
viewing the demo. 


How It Works 


PRTSCR uses the character generator in the ROM to define bytes which it 
sends to the printer in graphics mode. It copies the current screen, i.e. 
Display File to the printer. To do this, it must find the Display File, 
and for 22 lines of 32 characters, it locates the dot pattern in the КОМ 
for each character, and outputs the 8 bytes which define the character. 


The routine, invoked by RAND USR 16528, first sends escape codes to the 
printer which set line spacing to 8 dots vertical, and set a tab so the 
printout will be centred on the page. Then, for each line of 32 chars., an 
escape code is sent to the printer which puts it іп graphics mode, апа 
specifies the number of graphic bytes per line. The line of characters 15 
then sent, and the break key tested before proceeding to the next line. 
When finished, or if BREAK is pressed, the routine will reset line spacing 
to normal and return to BASIC with report 0/0. 


This all seems straightforward enough so far, doesn't it? бо why the 324 
bytes? It seems we should be able to write a routine to do all this in 160 
bytes or less, so what's the catch? 

The heartbreaker here is this: the ROM character generator is set up in 
video format. Video is created by horizontal scan lines, so the characters 
are defined by В bytes each, where each byte defines a horizontal row of 8 
pixel dots. | 

The printer, however, has а VERTICAL row of print wires, and requires 
that ап 8-pixel by 8-pixel character must be defined Бу 8 bytes, each of 
which defines a vertical row of pixels. 

Bet the picture? See Fig.1 if you are confused. 


So, you see, the PRTSC program not only finds the dot patterns іп the 
ROM, but constructs new bytes from them, bit by bit, to create data the 
printer can use. 


next page: MODIFYING PRTSC 


DIGGING DEEPER 


Printer escape codes are stored in bytes 16514 through 16526. 16527 15 
used as an inverse character flag, and will hold O or 128, depending оп 
the last character printed. 16528 is the start of the routines. 


Back now to those escape codes. See the "PRINTER ESCAPE DATA" chart for 
details of how these are stored. 

The 7 bytes from 16514 to 16520 incl. are sent just once at the start of 
PRTSC. The first 3 bytes (16514-16516) set line spacing to 8 dots, while 
the next 4 (16517-16520) set the printer tab at the 18 col. position, 
which centres the printout. Study the escape data chart, and you will see 
how different tabs could be poked to 16519, or entirely different escape 
codes poked in for eccentric printers. 


The next group of codes, located 16521-16526, is sent at the start of 
each line printed. 

The first byte is the ASCII TAB flag, which causes each line to Бе 
printed at the preset tab position. 

16522 thru 16526 are a graphics mode escape sequence. This sets the 
printer in 120DPI graphics mode for 512 bytes to follow. (There are really 
only 256 dots in a line, but we use high-density graphics mode and send 
each byte twice for a better looking printout.) 

Normally, 5 bytes are sent from here for each line: i-byte TAB, and the 
4-byte graphics escape. If your printer uses а 5-byte graphics escape, it 
can be poked in starting at 16522. This would mean that 6 bytes (including 
the TAB) must be sent for each line. To accomplish this, РОКЕ 16565,6 . 
Byte 16565 sets the number of bytes sent in the escape sequence for each 
line. Study of the labeled disassembly listing should make this more 
clear. 


One escape sequence remains: when the routine finishes, it resets 
printer line spacing back to default setting. This is <ESC>"2" on the 
EPSON. The ASCII code for "2" is 50. This is located at address 16549. If 
the code following <ESC> for this function is other than 50 for your 
printer, POKE the appropriate code to address 16549. 


The final printer consideration: PRTSC sends both LINEFEED and CARRIAGE 
RETURN codes to terminate each line. The LINEFEED code (10) is located at 
address 16610. Тһе С.Н. code (15) is at 16615. If you don’t need one of 
these, POKE the appropriate address with zero. 


PLAYING AROUND... 


So far, the only changes discussed have dealt with modifying PRTSC to 
work with your wierd printer. (if you have a wierd printer) 

Now for some fun-type changes. I will deal only with the EPSON codes 
here. If these experiments доп’ work, you had better check your printer 
manual. 


In а 32 char. line, with  8-dot-wide characters, there are 256 dot 
columns. However, PRTSC sends these twice. Let's change this. 

Bytes 16524-16525 set bytes/line in the graphics escape. 16524 is the 
"low byte" and holds 0. 16525 is the "high byte", and holds 2. 

2*256-512: no secrets here! Enter POKE 16525,1 . This means the printer 
will only be expecting 256 bytes per line. That's part 1 of the change. 
Now, enter POKE 16815,201 . 

That just put a RETurn in place of the call which outputs each byte the 
second time. 

ОК, now cross your fingers and RUN the demo. 

Boy, it got narrow, didn’t it! The best is yet to come! 


PLAYING AROUND, cont... 


Let's take this one step further. Thus far, ме have been working іп 
120DPI graphics mode, <ESC>}"L". 

Enter РОКЕ 16525,75. That just changed the graphics escape to <ESC>"K", 
which means 60DPI graphics mode. Now RUN the demo again. Wow! Back to 
regular width, but it looks different: not so dense, easier on the ribbon, 
and the inverse chars. may be more legible, depending on the state of your 
ribbon. 


Now you have seen how easy it is to modify the size and quality of 
printout. If all those POKEs seem daunting, just grit your teeth and 
follow the instructions carefully. The absolute worst you can do is make 
it crash! 


To summarize the POKEs we have done: 
POKE 16525, 2 for 512 dots/line 
РОКЕ 16525, 1 for 256 dots/line 


POKE 16815, 195 to output each byte twice(512/line) 
FOKE 16815, 201 to output each byte опсе(254/1іпе) 


POKE 16523, 76 for 1200РІ graphics 
POKE 16525, 75 for 60DPI graphics. 


As long as the graphics escape prepares the printer for the. number of 
bytes you send (256 or 512), you can experiment with graphics modes. Some 
combinations will overflow the printer line length (e.g. 512 bytes Ө 
600Р1). 


Printers with an intermediate  72DPI graphics mode will produce ап 
impressive printout in 512 dot/line PRTSC mode, while the 256  dot/line 
will give a more normal aspect ratio. 


This Manual was prepared "overnight" оп my ZX81, using Word Sinc I1.5, 
WordFont 11.5, PRTSC, and DCODER. и, P ПА 


-L.:] 
Inquiries c/o the author, at Ка 
2340 Queen St. Е. 
Toronto, Ont. 
Canada МАЕ 169 


ENJOY! РМ 4/85 


bit»76543219g value 
C bytel: g 


OE | : 66 
CO byte8: 2 


(А) video 


ф 
5 
аз е 
7 FI8.1: Character Byte Format 
6 {A shows how the letter "А" is 
5 | defined by 8 bytes in the ROM. 
4 (B) printer 
3 1B shows how the bytes have to 
2 be re-structured so the printer 
doesn't print the characters 
| sideways. 
ЩЕ Е 
bit Ф v 
+ = 
2 2 
I Fa) 


PRINTER ESCAPE DATA 
SET LINE SFACING 


16514 27 LEST? 

16515 65 "д" 

16516 8 8 dot line sp. 

16517 27 <ESC> SET LINE TAB 
16518 68 "р" 

16519 18 set ТАВ at col. 18 

16520 о Terminate TAB seq. 

16521 9 start line В TAB TAB and GRAPHICS ESCAPE 
16522 27 <ESC> 

16523 76 ма. 

16524 о 0+ 

16525 2 2*256 bytes рег line 

16526 o spare byte 


16527 128 inverse flag 


This is the 
DEMO prograa 
on the tape, 
and this is 
what it does! 


START 


CHAR. 


Qo üaemaomm 


Zs WInTrnanunnnn 


2. 
Hzae 


“. 


ззе вечасвемвезва ~ 


CDAVDM понттппппптпт 
2с002ҳ rre 


J 
igno 


жа” 


RAND USR 16528 


PRINT SCREEN 


то 


121 
HT енге ы AND (N<64 OR N 
ы 
(USR 1652664-U5R 1684542 + 1 


грет5ъвм“ 


$: 2? (0) > <ж + - % 


пвебЕгентлк moon stu 
=m: 222% Жі, 


The INVERT Routine (RAND USR 16840) 


addr byte 


mnemonic (DIS) 


тттттт гттзттттттттттттттттттттт 


—»> 16840 1244 
16841 HOCH 
16842 1404 
16843 ҚОЕ4 
16844 4164 

— 16845 1064 
16846 1204 

— 16847 1234 
16848 7E4 
16849 Сё 
16850 1804 
16851 [774 
16852 [104 
16855 }F94 
16854 [234 
16855 004 
16856 1204 
16857 F34 
16858 1094 


LD HL, (16396) — (DFILE) 


LD C, 22 — LINES 
LD B, 32 — CHARS/LINE 


INC HL — SKIP N/L , INC CHAR. 
LD A, (HL) 

: СЕТ CODE 
ADD A, 128 

ADD 128 

LD (HL), а PUT IT BACK. 
Pane ee NEXT CHAR 
INC HL — SKIP N/L CODE 
DEC С 


JR NZ, -13 NEXT LINE 
RET --- BACK То BASIC 


addr 


16528 
16529 
16530 
16531 
16532 
16533 
16534 
16535 
16536 
16537 
16538 
16539 
16540 
16541 
16542 
Бі м$Н-16543 
| 16544 

16545 
- 16546 
16547 


STAKT 


16548 
16549 
16550 
16551 
16552 
— 165555 
16554 
16555 
16556 


MAIN 


15557 

LING -1е558 
16559 

16560 
16561 
16562 
16563 
16564 
16565 
16566 
16567 
16568 
16569 
16570 
16571 
16572 
16573 
16574 
16575 
16576 
16577 
16578 
16579 
16580 
16581 


QmAL 16582 
No 16583 


CHAR. 


byte 


[214 
824 
$404 
064 
L074 
|7Е4 
LCD4 
354 
294 
234 
F104 
H94 
нсо4 
494 
404 
ЕЗЕІ 
НІ 
нс 
E354 
[294 
LSE4 
E324 
НС 
ЕЗ5 
294 
264 
ксі 
H404 
064 
не 
C54 
E234 
HE54 
Е214 
894 
404 
но 
054 
L7E4 
LCD4 
Е554 
[294 
[234 
но 
HFH 
Е1 
юы 
204 
C54 
L7E4 
СВЧ 
|7Е4 
[204 
LOE4 
HE54 


mnemonic (DIS) 
тттттт гттъ ттттттттттттттттттттт 
LD НІ, 16514 
SEND 
ri 
ЕВ Ба» INITIAL 
LD A, (HL) |/Е5С? 
CALL 10549 CODES 
AT 
16514 
INC HL 
DJNZ -7 
CALL 16553 CALL 
MAIN 
ROUTINE 
LD A, 27 
RESTORE 
CALL 10549 |/)ме 
SPACING 
To NORM 
LD A, 50 
-Ret TO 
JP 10549 BASIC EROM 
THIS Su B. 
LD HL, (16396) DFILE 
LD B, 22 LINES 
PUSH BC - SAVE LINE 
INC HL — SKIP ы/- 
PUSH HL - SAVE ADDR. 
LD HL, 16521 
SEND 
5 
LD В,5 LESCY 
LD A, (HL) 500265 
CALL 10549 FoR 
LINE 
INC HL 
DJNZ -7 
POP HL - Kecroge ADDR. 
LD B, 32 -CHARS 
PER LINE 
PUSH BC - SAVE CHARS 
LD A, (HL) -CHAR 
BIT 7 Ах Ove 
INVERSE ? 
JR NZ, 11-INVERSE! 
PUSH HL -SAVE ADDR 
LD НІ, 16527- INVERSE 


16584 
16585 


E214 
HBF4 
H404 


FLAG 


16586 
16587 
16588 
16589 
16590 
16591 
16592 
| НУЕ(Е16595 
1659 


16595 
16596 
16597 
16598 
16599 
16600 
16601 
16602 
16603 
16604 
16605 
16606 
16607 
16608 
16609 
16610 
16611 
16612 
16613 
16614 
16615 
16616 
16617 
16618 
16619 
16620 
16621 
16622 
16623 
16624 
16625 
16626 
16627 

Fin D-16628 
16629 
16630 
16631 
16632 
16633 
16634 
16635 
16636 
16637 
16638 

ЕТ —16639 
BITS 16640 
16641 
16642 
16645 
16644 
16645 


СВЧ 
ЕВЕ 
СІН 
HFH 
+404 
H84 
КЕ 
LCB4 
LBF 4 
КЕЗІ 
214 
FBF4 
404 
LCB4 
TI 
LCD4 
НЕА 
1404 
ҮЗЕ 
1254 
нса4 
H04 
НЕА 
L3E4 
юға 
но 
1354 
+294 
ЕЗЕН 
004 
НЕРІ 
E354 
294 
LC14 
СІ 
1461 
|0Е4 
E304 
LAE4 
H104 
FBB4 
LC94 
214 
ЕЕ 
H1D4 
КСА 
474 
H1 
ров 
L004 
194 
но 
НЕО 
ЕСІ 
ве 
414 
СВЧ 
L7E4 
НЕВА 
А+ 


(HL) = FLAG 
Normal 
16628 - Пу CHAR, 


IN CHAR. GEN, 
OUTPUT VT 
11 тъ юєхт CHAR 


RES 7, 


CALL 


JR 


7, A- CHANGE ТО 
Norm. CODE 

HL - Seve ADDR- 

HL, 16527 - flag 


Flag 
16628 - Find [оотвит 


HL = RESTORE ADDE 
HL - NEXT CHAE ADDR 


BC | zo qb emm 
Bes мект CHAR 


а, 10 LINEFEED 


10549 - МЕ oU1P/* 
60Р, 


ір а, 15 CARR RET. 


10545 


=# 
pop вс- 07% 
5910 ~ BREAK — 
PRESSED à 
JR NC, -82 THEN FINE: 


Lag NEAT EINST 


— To FINISH 
HL, 7672 


DJNZ 


RET 
LD 


FIND 
START BYTE 
For CODE 
IN CHAR- 
GEN: 


INC A 
LD в, A 
LD DE, В 


ADD 
DJNZ 


HL, 
-3 


DE 


16822 - SAVE HL, 
CLEAR А 

SET BIT ADDR INDE 

ЕЕ 


HL 
2762 - 


CALL Je (uc) 
e 


CALL 


BIT 


EX 
CALL 


16646 
16647 
16648 
16649 
16650 
16651 
16652 
16653 
16654 
16655 
16656 
16657 
16658 
16659 
16660 
16661 
16662 
16663 
16664 
16665 
16666 
16667 
16668 
16669 
16670 
16671 
16672 
16673 
16674 
16675 
16676 
16677 
16678 
16679 
16680 
16681 
16682 
16683 
16684 
16685 
16686 
16687 
16688 
16689 
16690 
16671 
16672 
16693 
16694 
16695 
16696 
16697 
16698 
16699 
16700 
16701 
16702 
16703 
16704 
16705 


HCA 
LOA 
тыз 
LCO4 
414 
но 
H54 
LCD4 
HA1 
H414 
СІН 
182] 
H14 
СВЧ 
ры 
НЕВА 
KCA4 
се 
А+ 
ЕСІН 
LCO4 
L414 
104 
H54 
Ты 
HA1 
H414 
тыз 
FB24 
H414 
СВЧ 
БЕЧ 
НЕВА 
LC44 
нс 
HOA 
СІН 
со 
H414 
H104 
54 
СІҢ 
A14 
414 
LCD4 
FB24 
414 
КЕРІ 
кы 
ЕРІ 
нса 
кы 
ров 
СІН 
СОЧ 
H414 
H104 
ЕБІ 
Ты 
A14 


CALL 


DJNZ 


CALL 


CALL 


BIT 


EX 


CALL 


CALL 


DJNZ 


CALL 


CALL 


BIT 


EX 


CALL 


CALL 


DJNZ 


CALL 


CALL 


BIT 


ЕХ 


CALL 


CALL 


DJNZ 


CALL 


16832 - REG, SETUP 


= - same BIT) 
S NEXT BYTE 


16801 - оотлел 
BYTE 


16818 -SETUP FoR NENT 
BiT-CHECK SER 
& , (HL) 


DE, HL 
NZ, 2762 => уе (н) 


16832 


-11- пей byte 


16801 — OUTPUT 
BYTE 


16818 -SETUP 


5, (HD 

DE, HL 

NZ, 2762 

14832 
Continue 

-11 To GET ES 
Qs x 

16801 LI 
LEA 

16818 pyres o j 
sen? Tek 

4, (HL) те 

DE, HL 

NZ, 2762 

16832 

-11 

16801 


16706 
16707 
16708 
16709 
16710 
16711 
16712 
16713 
16714 
16715 
16716 
16717 
16718 
16719 
16720 
16721 
16722 
16723 
16724 
16725 
16726 
16727 
16728 
16729 
16730 
16751 
16752 
14733 
16734 
16735 
16736 
16737 
16758 
16739 
16740 
16741 
16742 
16743 
16744 
16745 
16746 
16747 
16748 
16749 
16750 
16751 
16752 
16753 
16754 
16755 
16756 
16757 
16758 
16759 
16760 
16761 
16762 
16763 
16764 
16765 


H414 
LCD4 
B24 
1414 
СВЧ 
БЕЧ 
НЕВА 
LC44 
[СА 
LOA 
СІН 
со 
444 
H104 
НЕЗ 
СІН 
на 
1414 
FCDA 
LB24 
L414 
КЕРІ 
1564 
НЕВА 
C44 
ICAI 
NT 
СІН 
FCO4 
H414 
104 
НЕЗ 
нсо4 
HA1 
H414 
LCDJ 
|в24 
1414 
СВЧ 
HE4 
НЕВА 
C44 
СА 
ров 
СІҢ 
LCO4 
414 
$104 
НЕВА 
СІН 
HA1 
H414 
СІЧ 
1824 
414 
LCB4 
464 
НЕВА 
TOT 
ка 


CALL 


BIT 


ЕХ 


CALL 


CALL 


рам? 


CALL 


CALL 


BIT 


EX 


CALL 


CALL 


DJNZ 


CALL 


CALL 


BIT 


EX 


CALL 


CALL 


DJNZ 


CALL 


CALL 


BIT 


EX 
CALL 


16818 


5, (HD 


HL. 
2762 


16832 


-11 


16801 
16818 
2. (HD 
DE, HL 
NZ, 2762 


16832 


-11 


16801 
16818 


1, (HL) 


DE, HL 
NZ, 2752 


16832 


-11 


16801 
16818 


о, ІН) 


DE, HL 
NZ, 2762 


16766 
16767 
16768 
16769 
16770 
16771 
16772 
18773 
16774 
16775 
16776 


ЅЕТ16777 


OUT 


16778 
16779 
16780 
16781 
16782 
16783 
16784 
16785 
16786 
16787 
16788 
16789 
16790 
16791 
16792 
16793 
16794 
16795 
16796 
16797 
16798 
16799 
16800 
16801 


Bye 16802 


16803 
16804 
16805 
16806 
16807 
16808 
16809 
16810 
16811 
16812 
16813 
16814 
16815 
16816 
16817 
16818 


: 16819 


16820 
16821 
16822 
16825 
16824 
16825 


LOA 
LCD4 
HOO 
414 
104 
HFS 
СОЧ 
HA1 
H414 
HEH 
tC94 
КСВ 
НЕЕ 
[Се 
LCB4 
H74 
с94 
LCB4 
НЕЕ 
LC94 
СВЧ 
НЕ74 
LC94 
LCB4 
FDF4 
LC94 
СВЧ 
974 
НС94 
РСВЧ 
НЕРІ 
LC94 
СВЧ 
ЕСУІ 
HE94 
1214 
ЕВЕЧ 
|404 
СВ 
L7E4 
284 
L024 
НЕЕ 
HFF4 
HE54 
CD4 
354 
[294 
FF14 
LC34 
354 
294 
HD14 
HE1 
HB4 
011 
HD14 
HESH 
HD54 
LAF 


16826 1114 
CALL 15832 16827 1894 
16828 |414 
14829 L054 
DJNZ -11 16850 1084 
| 16831 LC9j 
CALL 16801-— ouTPuT BYTE | Q€G16832 LEBJ 
16833 L13j 
16834 |134 
POP HL ~ CLEAN UP STACK 16835 1134 
RET — To NEXT CHAR, 16604 16856 1254 
BET 7, A 16857 LC94 
RET PROCESSING 
SET é, A 
RET 
SET 5, A 
RET 
SET 4, A 
RET i Ba SE" 
SET 3, A sues 
RET 
SET 2,4 
RET 
SET 1, А 
БЕТ 
SET O, A J 
RET | 
LD HL, 15527 — INVERSE FLAG 
BIT 7, (HL) |NVeERSE 7 
JR 7,2 —NORmAL 
XOR 255 — INVERT BYTE IMAGE 
PUSH AF ™ 
CALL 10549 
OUTPUT BYTE 
Twice 
POP AF 
JP 10549 
POP DE — SAVE RET. ADDR 
POP HL - RESTORE HL 
JR 1 
POP DE — SAVE HL, 
PUSH HL RETURN ADDRESS 
PUSH DE | 
XOR A CLEAR A 


LD DE, 16777 - first SET 


su 
ір в, в — Bytes 
RET oe 
EX DE, HL -SETU 
INC DE Re GISTERS 
INC DE 
INC DE + BIT 
INC HL NEY 
RET 
COMPLETED 


кода 


23 КЕМ 
р |5 REM 
В 45 БЕМ 
& REM 
10 REM 
START: 
30 REM 
40 REM 
50 REM 


ZXAS <оовсЕ CODE FOR PRTSC. 


( 


:LODEC DESLD B.C;EX АҒ.АҒ: БЕС DESLD B.H3LD (ПЕ) .А: МОР 


:L1ADD HL.BC;DEC DEILD C.HsNOPSLD (ВС). АМОР 
;:L2NUP 


LD HL.LOsLD B.73:L18LD а. (HL) CALL 10549; INC HL: DJNZ.L18:sCALL 110 


:LSSLD A.2753CALL 10549;.0 А.5039Р 10549 
:L1OLD HL. (1653596) 310 B.22 
*LiiPUSH ВС; INC НО ЗРОБН HL; LD HL.L135LD B.5::L19LD А. (HL) CALL 118293 IN 


C HL:3DJNZ.L19:POP HLSLD B.32 


60 КЕМ 


:L12PUSH BCSLD А. (HL); BIT 7.аз ЈК NZ.LIS3PUSH Нр HL.L23RES 7. (HL) s CAL 


L L20;JR 121 


90 REM 
110 REM 


*LISRES 7. А: PUSH НС ГО HL.L2;SET 7. (HL); CALL 120 
:L21POP HL: INC HL;POP BCSDJNZ.L123LD а.10з сай 1054910 A.13;CALL 10549 


РОР BCSCALL *F46:JR МС.155;:02М72.111; RET 


115 REM 


118 НЕМ 
L6O 
120 REM 
Ево 
130 КЕМ 
L60 
140 REH 
160 
150 НЕМ 
Lào 
160 REM 
20 
170 REM 
160 
180 КЕМ 
160; POF 
190 КЕМ 
5. A ВЕТ; 
195 REM 
200 REM 
210 REM 
220 REM 


230 REM 
зоос REM 


:L20LD HL.74723 INC A3LD B.A LD DE.83;IL16ADD HL.DE;DJNZ.L16 


CALL 199:2111ВБІТ 7. (Н) ЕХ DE.HL; CALL NZ. $ACA CALL 1244; DJNZ.L118; CALL 
CALL 198::112081Т 6. Н) ЕХ DE.HL: CALL М2. $aCAs CALL L244; DINZ.L 1205 CALL 
CALL 19832115О0БІТ 5. (HL) ЕХ DE.HL CALL NZ. ЗАСА; CALL L244; DJNZ. L130; CALL 
CALL L9B:;:L14O0BIT 4. (Н) ЕХ DE.HLs; CALL NZ. ЗАСА; CALL 12445 рамг.1 1405 CALL 
CALL 198;:115ОБІТ 3. (НО) ЗЕХ DE.HL CALL МЕ. $ACAs CALL 1244; DJNZ.L150s CALL 
CALL L98::L160BIT 2. (Н) ЕХ ПЕН CALL NZ. $ACAs CALL L244; DJNZ.L160s5 CALL 
CALL 198;:1170ВІТ 1.(HL);EX DE.HL; CALL NZ.$ACA; CALL. L244; DJNZ.L170s CALL 


CALL L98::L1BOBIT O.(HL):;EX DE.HL; CALL М2. $aCAs CALL. L244: DIJNZ.L 180; CALL 
HL; КЕТ 


21.51БЕТ 7.А; ВЕТ; :Е З25ЕТ 6.А; КЕТ Е ЗЕ5ЕТ 5.4: ВЕТ: ІІ З4а5ЕТ 4. А ВЕТ; :LSSSET 
:1565ЕТ 2.А; НЕТ; :1 375ЕТ 1.8; КЕТ :| ЗВ5ЕТ О.А; RET 

:L6OLD HL. L2; BIT 7. (HL) JR Z.L81; ХОК 255 

11 81РОБН AFSCALL 10549;РОР АҒ; ЈР 10549 

:L9BPUP DE;POP НІ ҘАН 1100 

:L99POFP DE L100FUSH НОЗРОБН ПЕ: ХОК A;LD DE.LSi:LD B.8:RET 


:L244EX DE.HLS INC ОЕ; INC DES INC ПЕ: INC HL: КЕТ 
) 


